home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / KCOLOR.ZIP / kcolor.txt
Text File  |  1997-01-19  |  10KB  |  256 lines
  1.                               |{∩úúσ|-|~⌐≡ú≡«º
  2. =============================================================================
  3.                       ---===Place this in popups===---
  4. =============================================================================
  5. These are popups to run your colors.Have Fun!
  6. =============================================================================
  7.  
  8. &⌐-K∩úúσH=⌐≡ú≡«º-⌐
  9. .⌐-K∩úúσH=⌐≡ú≡«º-⌐:/ame 7,1I10,1s1,1 6,1L14,1o3,1a9,1d5,1e11,1d1,1 7,1W10,1i6,1t14,1h1,1 9,1K1,9∩9,1ú1,9ú9,1σ1,9H9,1⌐1,9≡9,1ú1,9≡9,1«1,9º9,1 1,9v1.009,1By: To|\|iC | /brick {⌐} Color Your Mind {⌐}
  10. .⌐-GaMeScOrEr-⌐:/say 1,9}9,1-1,9(9,1 $$?="What Day?" $$?="What Sport?" Score1,9)9,1-1,9{ | /say 4,14-4,15:4,1[ $$?="What Team?" ]4,15:4,14- 1,3<1,9 $$?="Score" 1,3> 4,14-4,15:4,1[ $$?="Other Team" ]4,15:4,14- 1,3<1,9 $$?="Score" 1,3>
  11. .--
  12. .⌐-AwsomeWriting-⌐:/ece $$?="Waht would you like to say?"
  13. .⌐-BackwardsWriting-⌐:/bac $$?="Waht would you like to say?"
  14. .⌐-Black+GreenWriting-⌐:/bg $$?="Waht would you like to say?"
  15. .⌐-Black+RedGreen-⌐:/cc $$?="Waht would you like to say?"
  16. .⌐-KickAssWriting-⌐:/e $$?="Waht would you like to say?"
  17. .⌐-KAW+WithColor-⌐:/ec $$?="Waht would you like to say?"
  18. .⌐-RainbowOnBlack-⌐:/r $$?="Waht would you like to say?"
  19. .⌐-Red+BlackWriting-⌐:/brick $$?="Waht would you like to say?"
  20. .⌐-SimpleColor-⌐:/rainbow $$?="Waht would you like to say?"
  21. .⌐-White+Black-⌐:/bw $$?="Waht would you like to say?"
  22. .--
  23. .&⌐-K∩úúσH=K∩⌐Kº-⌐
  24. ..⌐-ColorfulDay-⌐:/kick # $$1 10,1{5,1⌐14,1}2,1H15,1a3,1v14,1e4,1 13,1a5,1 12,1c6,1o11,1l7,1o10,1r8,1f2,1u9,1l8,1 10,1d7,1a11,1y3,1{7,1⌐13,1}
  25. ..⌐-CoMeBaCkSoOn-⌐:/kick # $$1 4,1{1,4⌐4,1}1,4C4,1o1,4M4,1e1,4 4,1B1,4a4,1C1,4k4,1 1,4S4,1o1,4O4,1n1,4{4,1⌐4,1}
  26. ..⌐-LaMeR-⌐:/brick $nick !!!!!!!!! You Lamer you have been around here way to long. | /ame Draws his sword 4,15@4,1xxx4,15][4,14>>>>>>>>>>>>>>>>> | /brick $nick ,I'm warning ,Leave or I will make you Leave! | /brick Since $nick is such a LAMER he runs like the wind ,never to return again. | /kick # $$1 {⌐}-K∩úúσH=⌐≡ú≡«º-{⌐}
  27. ..⌐-OpSbEgGeR-⌐:/ncu Damn!What the hell is that smell???? | /ncu It smells like.....like......An Ops begger!!! | /ncu And guess what,we don't have op begging in $chan!! | /kick # $$1 {⌐}-K∩úúσH=⌐≡ú≡«º-{⌐}
  28.  
  29. =============================================================================
  30.                       ---===Place this in Aliases===---
  31. =============================================================================
  32.  
  33. /ece {
  34.   %c = *1
  35.   set %c $replace(%c,a,4a)
  36.   set %c $replace(%c,b,3B)
  37.   set %c $replace(%c,c,6C) 
  38.   set %c $replace(%c,d,7D) 
  39.   set %c $replace(%c,e,4e) 
  40.   set %c $replace(%c,f,12F) 
  41.   set %c $replace(%c,g,13G) 
  42.   set %c $replace(%c,h,6H) 
  43.   set %c $replace(%c,i,4i) 
  44.   set %c $replace(%c,j,J) 
  45.   set %c $replace(%c,k,3K) 
  46.   set %c $replace(%c,l,L) 
  47.   set %c $replace(%c,m,4M) 
  48.   set %c $replace(%c,n,6N)
  49.   set %c $replace(%c,o,4o) 
  50.   set %c $replace(%c,p,12P) 
  51.   set %c $replace(%c,q,Q) 
  52.   set %c $replace(%c,r,13R) 
  53.   set %c $replace(%c,s,7S) 
  54.   set %c $replace(%c,t,T) 
  55.   set %c $replace(%c,u,4u) 
  56.   set %c $replace(%c,v,V) 
  57.   set %c $replace(%c,w,12W) 
  58.   set %c $replace(%c,x,7X) 
  59.   set %c $replace(%c,y,Y) 
  60.   set %c $replace(%c,z,6z) 
  61.   set %c $replace(%c,?,12┐15?) 
  62.   say %c
  63.   unset %c
  64. }
  65. /bac {
  66.   unset %final
  67.   unset %endreverse
  68.   set %sections $token(0,32,*1)
  69.   :revstart
  70.   if (%sections == 0) goto revend  
  71.   set %reverseme $token(%sections,32,*1)
  72.   set %length $len(%reverseme)
  73.   set %backtext $mid(%length,1,%reverseme)  
  74.   dec %length 1  
  75.   :backstart
  76.   if (%length == 0) goto backend
  77.   set %tempback $mid(%length,1,%reverseme)
  78.   set %backtext %backtext $+ %tempback 
  79.   dec %length 1
  80.   goto backstart
  81.   :backend
  82.   set %reversed_text %backtext
  83.   set %temp %reversed_text
  84.   set %final %final %temp
  85.   dec %sections 1
  86.   goto revstart  
  87.   :revend
  88.   set %endreverse %final
  89.   say %final
  90. }
  91. /bg { %num = 1 | unset %msg  | %msg =  | %color = p
  92.   :start
  93.   if %color == p { %num2 = 1 | %num3 = 9 | %color = y | goto add }
  94.   if %color == y  { %num2 = 9 | %num3 = 1 | %color = p | goto add }
  95.   :add
  96.   if $mid(%num,1, *1) != $null {
  97.     %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
  98.     inc %num 
  99.   goto start  }
  100.   say %msg
  101. }
  102. /cc { %num = 1 | unset %msg  | %msg =  | %color = p
  103.   :start
  104.   if %color == p { %num2 = 1 | %num3 = 9 | %color = y | goto add }
  105.   if %color == y  { %num2 = 4 | %num3 = 1 | %color = p | goto add }
  106.   :add
  107.   if $mid(%num,1, *1) != $null {
  108.     %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
  109.     inc %num 
  110.   goto start  }
  111.   say %msg
  112. }
  113. /ec {
  114.   set %ftalk *1
  115.   %ftalk = $replace(%ftalk,a,2σ)
  116.   %ftalk = $replace(%ftalk,b,3■)
  117.   %ftalk = $replace(%ftalk,c,4╟)
  118.   %ftalk = $replace(%ftalk,d,5╨)
  119.   %ftalk = $replace(%ftalk,e,6δ)
  120.   %ftalk = $replace(%ftalk,f,7F)
  121.   %ftalk = $replace(%ftalk,g,8G)
  122.   %ftalk = $replace(%ftalk,h,9H)
  123.   %ftalk = $replace(%ftalk,i,10ε)
  124.   %ftalk = $replace(%ftalk,j,11J)
  125.   %ftalk = $replace(%ftalk,k,12K)
  126.   %ftalk = $replace(%ftalk,l,13ú)
  127.   %ftalk = $replace(%ftalk,m,14M)
  128.   %ftalk = $replace(%ftalk,n,15±)
  129.   %ftalk = $replace(%ftalk,o,2°)
  130.   %ftalk = $replace(%ftalk,p,3╢)
  131.   %ftalk = $replace(%ftalk,q,4Q)
  132.   %ftalk = $replace(%ftalk,r,5«)
  133.   %ftalk = $replace(%ftalk,s,6º)
  134.   %ftalk = $replace(%ftalk,t,7T)
  135.   %ftalk = $replace(%ftalk,u,8╡)
  136.   %ftalk = $replace(%ftalk,v,9V)
  137.   %ftalk = $replace(%ftalk,w,10\\')
  138.   %ftalk = $replace(%ftalk,x,11╫)
  139.   %ftalk = $replace(%ftalk,y,12Ñ)
  140.   %ftalk = $replace(%ftalk,z,12Z)
  141.   %ftalk = $replace(%ftalk,!,4!)
  142.   %ftalk = $replace(%ftalk,?,4?)
  143.   %ftalk = $replace(%ftalk,*,5*)
  144.   %ftalk = $replace(%ftalk,^,6^)
  145.   %ftalk = $replace(%ftalk,$,7$)
  146.   %ftalk = $replace(%ftalk,@,9@)
  147.   %ftalk = $replace(%ftalk,&,10&)
  148.   %ftalk = $replace(%ftalk,",11")
  149.   %ftalk = $replace(%ftalk,<,12<)
  150.   %ftalk = $replace(%ftalk,>,13>!)
  151.   SAY %ftalk
  152. }
  153. /e {
  154.   set %ftalk *1
  155.   %ftalk = $replace(%ftalk,a,σ)
  156.   %ftalk = $replace(%ftalk,b,▀)
  157.   %ftalk = $replace(%ftalk,c,⌐)
  158.   %ftalk = $replace(%ftalk,d,╨)
  159.   %ftalk = $replace(%ftalk,e,δ)
  160.   %ftalk = $replace(%ftalk,f,F)
  161.   %ftalk = $replace(%ftalk,g,G)
  162.   %ftalk = $replace(%ftalk,h,H)
  163.   %ftalk = $replace(%ftalk,i,ε)
  164.   %ftalk = $replace(%ftalk,j,J)
  165.   %ftalk = $replace(%ftalk,k,K)
  166.   %ftalk = $replace(%ftalk,l,ú)
  167.   %ftalk = $replace(%ftalk,m,M)
  168.   %ftalk = $replace(%ftalk,n,±)
  169.   %ftalk = $replace(%ftalk,o,°)
  170.   %ftalk = $replace(%ftalk,p,╢)
  171.   %ftalk = $replace(%ftalk,q,Q)
  172.   %ftalk = $replace(%ftalk,r,«)
  173.   %ftalk = $replace(%ftalk,s,º)
  174.   %ftalk = $replace(%ftalk,t,t)
  175.   %ftalk = $replace(%ftalk,u,╡)
  176.   %ftalk = $replace(%ftalk,v,V)
  177.   %ftalk = $replace(%ftalk,w,\\')
  178.   %ftalk = $replace(%ftalk,x,╫)
  179.   %ftalk = $replace(%ftalk,y,Ñ)
  180.   %ftalk = $replace(%ftalk,z,Z)
  181.   say %ftalk
  182. }
  183. /r {
  184.   set %i $replace(*1,$chr(32),á) | set %i $left(200,%i) | set %o $chr(3) $+ 4,1 | set %p 1 | set %c 1
  185.   :loop
  186.   set %o %o $+ $chr(3) $+ $token( %c , 38 , 4&7&8&9&11&13 ) $+ $mid(%p,1,%i) 
  187.   inc %p
  188.   if ( $mid(%p,1,%i) != á) { inc %c }
  189.   if ( %c > 6 ) { set %c 1 }
  190.   if ( $mid(%p,1,%i) != $null ) { goto loop }
  191.   say %o
  192.   unset %o %i %p %c
  193. }
  194. /brick { %num = 1 | unset %msg  | %msg =  | %color = p
  195.   :start
  196.   if %color == p { %num2 = 1 | %num3 = 4 | %color = y | goto add }
  197.   if %color == y  { %num2 = 4 | %num3 = 1 | %color = p | goto add }
  198.   :add
  199.   if $mid(%num,1, *1) != $null {
  200.     %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
  201.     inc %num 
  202.   goto start  }
  203.   say %msg
  204. }
  205. /rainbow {
  206.   unset %textfinal
  207.   set %rainbow *1
  208.   set %text.change 0
  209.   :beginning
  210.   inc %text.change
  211.   if %text.change > $len(%rainbow) goto end
  212.   set %rand1 $rand(1,15)
  213.   set %text2add  $+ %rand1 $+ $mid(%text.change,1,%rainbow) $+ 
  214.   if (%text.change == 1) { set %textfinal %text2add }
  215.   else set %textfinal %textfinal $+ %text2add
  216.   goto beginning
  217.   :end
  218.   msg $chan %textfinal
  219. }
  220. /bw { %num = 1 | unset %msg  | %msg =  | %color = p
  221.   :start
  222.   if %color == p { %num2 = 1 | %num3 = 16 | %color = y | goto add }
  223.   if %color == y  { %num2 = 16 | %num3 = 1 | %color = p | goto add }
  224.   :add
  225.   if $mid(%num,1, *1) != $null {
  226.     %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
  227.     inc %num 
  228.   goto start  }
  229.   say %msg
  230. }
  231.  
  232. =============================================================================
  233.                     ---===Place this in Events===---
  234. =============================================================================
  235.  
  236. 1:ON JOIN:#:{
  237.   inc %count 1
  238.   /notice $nick Welcome to 4,15-4,14:4,1[  $+ $chan $+ ]4,14:4,15-4,15Todays date-<  $+ $date $+  >-4,14You are person Number -{ 9,1 %count 4,14 }-4,1{⌐-K∩úúσH=⌐≡ú≡«º-⌐}
  239. }
  240.  
  241. =============================================================================
  242. Although this script is not that useful i found it pretty fun to use.If you
  243. have any problems or you need help check out #Kingdom_kids or #mirc_scripts.
  244. I plan to release a 2.00 version soon.If you would like to help on the next
  245. version contact me and tell me.Later,To|\|iC
  246. =============================================================================
  247.           Thanks to every1 in #Mirc_Scripts that helped me out
  248.                      ======================
  249.                      |********************|
  250.                      |**|{∩úúσ|-|~⌐≡ú≡«º**|
  251.                      |********************|
  252.                      |*****By*To|\|iC*****|
  253.                      |********************|
  254.                      ======================
  255.                          --=={1997}==--
  256.                           V 1.05 Alpha